home *** CD-ROM | disk | FTP | other *** search
- ;Microsoft Mouse Menu for PC-Write
- BEGIN lftbtn,rtbtn,btbtn,lfmtn,rtmtn,upmtn,dnmtn,40,28
- ;LEFT BUTTON OPTIONS:
- lftbtn: MATCH 1,15,,"MARKED",keyf5,lftbtn2 ;if MARKED, clear
- lftbtn2: MATCH 1,15,,"Marking",keyf3,lftbtn3 ;if Marking, freeze
- lftbtn3: MATCH 1,1,,"Esc:Menu",keyf3,lftbtn4 ;marking on
- lftbtn4: MATCH 1,1,,"Esc:cancel",choose,lftbtn5 ;main menu, do ENTER
- lftbtn5: MATCH 1,1,,"Esc ",choose,lftbtn6 ;submenus, do ENTER
- lftbtn6: MATCH 1,1,,"Directory",choose,lftbtn7 ;dir prompt, do ENTER
- lftbtn7: MATCH 1,1,,"File",choose,lftbtn8 ;file prompt, do ENTER
- lftbtn8: MATCH 1,1,,"Waiting",choose,lftbtn9 ;print menu, do ENTER
- lftbtn9: MATCH 1,1,,"Esc:Exit",keyf10,nul ;print prompt, do F10
- choose: EXECUTE keyenter
- nul: NOTHING
- ;RIGHT BUTTON OPTIONS:
- rtbtn: EXECUTE keyesc ;right button always does Esc
- ;BOTH BUTTONS OPTIONS:
- btbtn: EXECUTE gethelp
- gethelp: MATCH 1,5,,"Menu",help1,gethelp2 ;when editing, get help
- help1: EXECUTE keyesc,keyf1,keyf1
- gethelp2: MATCH 1,5,,"can",help2,gethelp3 ;main menu, get help
- help2: EXECUTE keyf1,keyf1
- gethelp3: MATCH 1,5,,"F",help3,gethelp4 ;submenus, get help
- help3: EXECUTE keyf1
- gethelp4: MATCH 1,6,,"Help off",helpoff,other ;help screen, go to edit
- helpoff: EXECUTE keyf1
- other: EXECUTE keyf1 ;at prompts, get help
- ;LEFT MOTION:
- lfmtn: MATCH 1,5,,"Me",lfmtn2,lfmtn3
- lfmtn2: EXECUTE hsen,lf ;high sensitivity, Editing
- lfmtn3: EXECUTE lsen,lf ;low sensitivity, Menus
- ;RIGHT MOTION:
- rtmtn: MATCH 1,5,,"Me",rtmtn2,rtmtn3
- rtmtn2: EXECUTE hsen,rt
- rtmtn3: EXECUTE lsen,rt
- ;UP MOTION:
- upmtn: MATCH 1,5,,"Me",upmtn2,upmtn3
- upmtn2: EXECUTE hsen,up
- upmtn3: EXECUTE lsen,up
- ;DOWN MOTION:
- dnmtn: MATCH 1,5,,"Me",dnmtn2,dnmtn3
- dnmtn2: EXECUTE hsen,dn
- dnmtn3: EXECUTE lsen,dn
- ;CURSOR MOVEMENT:
- lf: TYPE 0,75
- rt: TYPE 0,77
- up: TYPE 0,72
- dn: TYPE 0,80
- ;SENSITIVITY:
- hsen: assign ,,,,,,,4,8
- lsen: assign ,,,,,,,40,28
- ;KEY DEFINITIONS:
- keyesc: TYPE 27
- keyenter: TYPE enter
- keyf1: TYPE 0,59
- keyf3: TYPE 0,61
- keyf5: TYPE 0,63
- keyf10: TYPE 0,68
-